home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / TOPAZ / UISTRIP / MAILLIST.PRG < prev    next >
Text File  |  1991-08-06  |  1KB  |  50 lines
  1. ***
  2. *** MAILLIST.PRG : entry screen program, with dbf & memvar init code
  3. *** Generated August 6, 1991
  4. ***
  5.  
  6.  
  7. * initialization
  8. SELECT 1
  9. USE MAILLIST ALIAS MAILLIST
  10.  
  11.  
  12.  
  13. * display text
  14. SET COLOR TO W/N
  15. CLEAR
  16. @ 01,28 SAY "╔════════════════════╗"
  17. @ 02,01 SAY "UI Strip demo UI screen    ║Personal Information║             UIStrip - V01.00"
  18. @ 03,00 SAY "┌───────────────────────────╨────────────────────╨─────────────────────────────┐"
  19. @ 04,00 SAY "│ Last name"+space(40)+"Birthday                    │"
  20. @ 05,00 SAY "│ First name"+space(67)+"│"
  21. @ 06,00 SAY "└──────────────────────────────────────────────────────────────────────────────┘"
  22. @ 08,32 SAY "╔═════════╗"
  23. @ 09,32 SAY "║ Kids    ║"
  24. @ 10,32 SAY "╚═════════╝"
  25. @ 12,16 SAY "This is the salary information ---->"
  26. @ 15,00 SAY "╔═════════════════════════════╡Related text file╞══════════════════════════════╗"
  27. @ 16,00 SAY "║"+space(78)+"║"
  28. @ 17,00 SAY "║"+space(78)+"║"
  29. @ 18,00 SAY "║"+space(78)+"║"
  30. @ 19,00 SAY "║"+space(78)+"║"
  31. @ 20,00 SAY "║"+space(78)+"║"
  32. @ 21,00 SAY "║"+space(78)+"║"
  33. @ 22,00 SAY "║"+space(78)+"║"
  34. @ 23,00 SAY "╚══════════════════════════════════════════════════════════════════════════════╝"
  35.  
  36.  
  37.  
  38.  
  39. * input
  40. SET COLOR TO W/N, N/W
  41.  
  42. @ 04,19 GET LNAME
  43. @ 04,60 GET BIRTHDAY
  44. @ 05,19 GET FNAME
  45. @ 09,39 GET KIDS
  46. @ 12,53 GET SALARY
  47.  
  48. READ
  49.  
  50.